home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tptc17sc.zip / ITOA.INC < prev    next >
Text File  |  1988-03-25  |  306b  |  24 lines
  1.  
  2. (*
  3.  * return the string equivelant of an integer value
  4.  *
  5.  *)
  6.  
  7. function itoa (int:  integer): string;
  8. var
  9.    tstr:  string;
  10. begin
  11.    str(int, tstr);
  12.    itoa := tstr;
  13. end;
  14.  
  15. function ltoa (int:  longint): string;
  16. var
  17.    tstr:  string;
  18. begin
  19.    str(int, tstr);
  20.    ltoa := tstr;
  21. end;
  22.  
  23.  
  24.